home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / volumes / gravol3.asc < prev   
Encoding:
Text File  |  1994-03-01  |  12.5 KB  |  716 lines
  1.                VOLUME 3
  2.  
  3.  *** PROGRAMMES CASIO GRAPHIQUES ***
  4.     (c) W-Tel RTC (16) 62 93 74 05
  5.  
  6.      VOUS VENEZ DE TELECHARGER LE 
  7. FICHIER GRAVOL3.LST SUR W-TEL.
  8.  
  9.      SI VOUS AVEZ ECRIT UN SOFT SUR 
  10. CASIO GRAPHIQUE VENEZ LE METTRE SUR W-
  11. TEL 24/24 AU 62.93.74.05 (BAL WILLY).
  12.  
  13.  
  14.          SOMMAIRE DU VOLUME 3
  15.  
  16.      Biorythme
  17.  
  18.      Golf
  19.  
  20.      Morpion
  21.  
  22.      Tierc‚
  23.  
  24.      Parachutiste
  25.  
  26.      Rapido
  27.  
  28.      Att‚rissage
  29.  
  30.      Puissance 4
  31.  
  32.      Transformation d'un nombre 
  33. d‚cimal en fraction
  34.  
  35.      R‚solution d'‚quation du 2nd 
  36. degr‚
  37.  
  38.      Courbes diverses
  39.  
  40.      A suivre....(15/05/90)
  41.  
  42.  
  43. ********************************
  44.  
  45. Biorythme
  46.  
  47. PROGRAMMES  FX   CASIO
  48. 6000G - 7000G - 7500G - 8000G - 8500G
  49.  
  50. FICHE Nø 13  PAR LAURENT LECHELLE
  51.  
  52. Mcl : Rad : Defm 12 : jour->K : mois-
  53. >N
  54. (ann‚e sur 4 chiffres)->B : 
  55. "BIORYTHMES" : Lbl 0 : 0->C
  56. 23->E[1] : 28->E[2] : 33->E[3] : 0-
  57. >Z[1] : 31->Z[2]
  58. 59.25->Z[3] : 90.25->Z[4] : 120.25-
  59. >Z[5] : 151.25->Z[6]
  60. 181.25->Z[7] : 212.25->Z[8] : 243.25-
  61. >Z[9] : 273.25->Z[10]
  62. 304.25->Z[11] : 334.25->Z[12]
  63. "Date de naissance"?->J : ?->M : ?->A
  64. 365.25(B-A)+Z[N]-Z[M]+K-J->R
  65. Lbl 1 : C+1->C : Range -
  66. pi,pi,2pi/E[C],-1,1,.1
  67. (R-E[C]Int (R/E[C]))*2pi/E[C]->S Ý
  68. Graph Y=sin (X+S)Ý     C<>3=>Goto 
  69. 1:Goto 0 Disp
  70.  
  71. 339 pas
  72.  
  73. symboles utilis‚s:  pi … remplacer par 
  74. le vrai signe de pi
  75.                      Ý … remplacer par 
  76. le triangle au dessus de
  77.                          la touche ":"
  78.                     <> …  remplacer 
  79. par diff‚rent (= barr‚)
  80.  
  81.  Entrez dans le programme les donn‚es 
  82. concernant le jour, le mois et 
  83. l'ann‚e. Puis lancez ensuite le 
  84. programme. Entrez le jour, le mois et 
  85. l'ann‚e (sur 4 chiffres) de la 
  86. personne dont vous voulez connaitre le 
  87. Biorythme. Les 3 courbes qui 
  88. apparaissent d‚crivent la forme 
  89. physique, puis la sensibilit‚, puis la 
  90. forme intellectuelle (ce qui est 
  91. diff‚rent de l'intelligence...). Les 
  92. r‚sultats sont donn‚s entre -10 et +10 
  93. (axe des ordonn‚es). L'axe des 
  94. abscisses repŠre la date de jour. Vous 
  95. pouvez donc visualiser votre Biorythme 
  96. plusieurs … l'avance...sachant qu'un 
  97. graduation de cet axe repr‚sente une 
  98. journ‚e.
  99.  
  100.  
  101.  
  102. ******************************
  103.  
  104. Golf
  105.  
  106. PROGRAMMES  FX   CASIO
  107. 8000G - 8500G
  108.  
  109. FICHE Nø 14  PAR PIERRE HOUSSIN
  110.  
  111. Premier programme (prog 0)
  112.  
  113. Mcl : Deg : Range 1->95,0,1->63,0
  114. Lbl 0 : Isz E : Int 20Ran#+20->I : Int 
  115. 21Ran#+20->J
  116. Int 13Ran#+20->S : Int 10Ran#+20->T
  117. Lbl 4 : Int 68Ran#+26->A : Int 
  118. 10Ran#+52->B
  119. I<=A => A<=I+S => J<=B => B<=J+T => 
  120. Goto 4
  121. Plot A,B : 0->H : 12->C : 25->D
  122. Lbl 1 : Cls : Prog 1 : Plot A,B : Plot 
  123. C,DÝ
  124. X->C : Y->D : Isz H : H>=20 => Goto 4
  125. "ANGLE"?->Z : "FORCE"?->L
  126. Lbl 2 : L-1->L : L<0 => Goto 1
  127. sin Z->F : cos Z->G : C+G->C : D+F->D 
  128. : Plot C,D
  129. C>94 => Goto 5 : D>62 => Goto 5 : C<2 
  130. => Goto 5 : D<11 => Goto 5
  131. A=C => B=D => Goto 6
  132. Lbl 7 : C>=I => Goto 3 : L>=0 => Goto 
  133. 2 : Goto 1
  134. Lbl 3 : I<=C => C<=I+J => J<=D => 
  135. D<=J+T => Goto 5 : Goto 2
  136. Lbl 5 : "PERDU=" : PÝ        Prog 0
  137. Lbl 6 : L>5 => Goto 7 : P+S-H->P : 
  138. "GAGNE=" : PÝ  E<12 => Goto 0
  139. " FIN DU GREEN   TOTAL:" : PÝ
  140. Prog 0
  141.  
  142.  
  143. Second programme (prog 1)
  144.  
  145. Plot I,J : Plot I+S,J : Line : Plot 
  146. I+S,J+T : Line
  147. Plot I,J+T : Line : Plot I,J : Line
  148. Plot 1,10 : Plot 95,10 : Line : Plot 
  149. 95,63 : Line
  150. Plot 1,63 : Line : Plot 1,10 : Line  
  151. longueur totale : 704 pas
  152.  
  153. symboles utilis‚s:  pi … remplacer par 
  154. le vrai signe de pi
  155.                      Ý … remplacer par 
  156. le triangle au dessus de
  157.                        la touche ":"
  158.                     <> …  remplacer 
  159. par diff‚rent (= barr‚)
  160.                     <=, >= … remplacer 
  161. respectivement par                            
  162. inf‚rieur ou ‚gal et sup‚rieur ou ‚gal
  163.  
  164.  Vous pouvez taper ces deux programmes 
  165. dans la zone fichiers de votre machine 
  166. pour cela nomez les respectivement 
  167. "GOLF" et "GOLF1", puis remplacez les 
  168. instructions Prog 0 et Prog 1 par les 
  169. instructions Prog "GOLF" et Prog 
  170. "GOLF1".
  171.  
  172. **************************
  173.  
  174. Morpion
  175.  
  176. Ces 3 programmes sont … mettre dans 3 
  177. zones de prog distinctes. Si le 
  178. programme principal n'est pas P9, et 
  179. que les programmes annexes ne portent 
  180. pas les noms "Joueur 1" et "Joueur 2" 
  181. alors modifiez les programmes en 
  182. cons‚quence.
  183.  
  184. Programme principal: (539 PAS)
  185.  
  186. "MORPION" DISP
  187. DEG
  188. MCLS
  189. CLS
  190. RANGE 1,5.7,0,1,4.1,0
  191. 2->A
  192. LBL 0
  193. PLOT A,4
  194. PLOT A,1
  195. LINE
  196. PLOT 2,A
  197. PLOT 5,A
  198. LINE
  199. ISZ A
  200. A>5 =>GOTO 1
  201. GOTO 0
  202. LBL 1
  203. PLOT 2,1
  204. PLOT 5,1
  205. LINE
  206. PLOT 1.55,1.35
  207. PLOT 1.55,1.65
  208. LINE
  209. PLOT 1.5,1.35
  210. PLOT 1.6,1.35
  211. PLOT 1.5,1.6
  212. PLOT 1.65,2.3
  213. PLOT 1.45,2.3
  214. LINE
  215. PLOT 1.65,2.5
  216. LINE
  217. PLOT 1.65,2.55
  218. PLOT 1.6,2.6
  219. PLOT 1.5,2.6
  220. LINE
  221. PLOT 1.45,2.55
  222. PLOT 1.45,3.35
  223. PLOT 1.5,3.3
  224. PLOT 1.6,3.3
  225. LINE
  226. PLOT 1.65,3.35
  227. PLOT 1.65,3.4
  228. PLOT 1.55,3.5
  229. LINE
  230. PLOT 1.65,3.6
  231. LINE
  232. PLOT 1.45,3.6
  233. LINE
  234. PLOT 1.45,3.6
  235. LINE DISP
  236. LBL 2
  237. "PLAYER 1"
  238. "COLONNE"?->A
  239. "RANGEE"?->B
  240. A>3 =>GOTO 2
  241. B>5 =>GOTO 2
  242. O->T
  243. LBL 3
  244. REC(.4,T)
  245. PLOT A+I+1.5,J+.5+B
  246. T+45->T
  247. T>360 =>GOTO 4
  248. T<90 =>GOTO 3
  249. LINE
  250. GOTO 3
  251. LBL 4
  252. LINE DISP
  253. PROG "JOUEUR1"
  254. LBL 5
  255. "PLAYER 2"
  256. "COLONNE"?->A
  257. "RANGEE"?->B
  258. A>3 =>GOTO 5
  259. B>3 =>GOTO 5
  260. PLOT A+1,B
  261. PLOT A+2,B+1
  262. LINE
  263. PLOT A+1,B+1
  264. PLOT A+2,B
  265. LINE DISP
  266. PROG "JOUEUR2"
  267. GOTO 2
  268.  
  269.  
  270.           FILE NAME: JOUEUR1
  271.  
  272. LBL 0
  273. A=1 =>GOTO 1
  274. A=2 =>GOTO 2
  275. A=3 =>GOTO 3
  276. LBL 1
  277. B=1 =>1->U
  278. B=2 =>1->P
  279. B=3 =>1->M
  280. GOTO 4
  281. LBL 2
  282. B=1 =>1->V
  283. B=2 =>1->Q
  284. B=3 =>1->N
  285. GOTO 4
  286. LBL 3
  287. B=1 =>1->W
  288. B=2 =>1->R
  289. B=3 =>1->O
  290. GOTO 4
  291. LBL 4
  292. U+P+M=3 =>GOTO 5
  293. V+Q+N=3 =>GOTO 5
  294. W+R+O=3 =>GOTO 5
  295. U+V+W=3 =>GOTO 5
  296. P+Q+R=3 =>GOTO 5
  297. M+N+O=3 =>GOTO 5
  298. U+Q+O=3 =>GOTO 5
  299. M+Q+W=3 =>GOTO 5
  300. U+V+W+P+Q+R+M+N+O>=45 =>GOTO 6
  301. GOTO 7
  302. LBL 5
  303. "JOUEUR 1 GAGNE" DISP
  304. PROG 9
  305. LBL 6
  306. "EGALITE" DISP
  307. PROG 9
  308. LBL 7
  309.  
  310.  
  311.           FILE NAME: JOUEUR2
  312.  
  313. LBL 0
  314. A=1 =>GOTO 1
  315. A=2 =>GOTO 2
  316. A=3 =>GOTO 3
  317. LBL 1
  318. B=1 =>10->U
  319. B=2 =>10->P
  320. B=3 =>10->M
  321. GOTO 4
  322. LBL 2
  323. B=1 =>10->V
  324. B=2 =>10->Q
  325. B=3 =>10->N
  326. GOTO 4
  327. LBL 3
  328. B=1 =>10->W
  329. B=2 =>10->R
  330. B=3 =>10->O
  331. GOTO 4
  332. U+P+M=30 =>GOTO 5
  333. V+Q+N=30 =>GOTO 5
  334. W+R+O=30 =>GOTO 5
  335. U+V+W=30 =>GOTO 5
  336. P+Q+R=30 =>GOTO 5
  337. M+N+O=30 =>GOTO 5
  338. U+Q+O=30 =>GOTO 5
  339. M+Q+W=30 =>GOTO 5
  340. GOTO 6
  341. LBL 5
  342. "JOUEUR 2 GAGNE" DISP
  343. PROG 9
  344. LBL 6
  345.  
  346.  
  347. **************************
  348.  
  349. Tierc‚
  350.  
  351. Il y a quelques problemes avec les 
  352. espaces mais comme je ne possede pas 
  353. de graphique je ne puis le tester. A 
  354. vous de chercher les espaces.
  355.  
  356. Prog 6 : 524 pas
  357.  
  358. "TIERCE" DISP
  359. 100->P~R
  360. LBL 5
  361. "ARGENT A"
  362. P DISP
  363. "ARGENT B"
  364. Q DISP
  365. "ARGENT C"
  366. R DISP
  367. P=<0 =>"A ELIMINE"
  368. Q=<0 =>"B ELIMINE"
  369. R=<0 =>"C ELIMINE"
  370. RANGE 0,350,1,0,4,1
  371. "FAITE VOS JEUX"
  372. "MISE A"?->I
  373. P-I->P
  374. "MISE B"?->J
  375. Q-J->Q
  376. "MISE C"?->K
  377. R-K->R
  378. " "
  379. "                 C"
  380. " "
  381. "                 B"
  382. "                 A"
  383. " "
  384. " "
  385. 1->A
  386. PLOT 299,0
  387. PLOT 299,4
  388. LINE
  389. PLOT 300,0
  390. PLOT 300,4
  391. LINE
  392. 1->B
  393. 1->C
  394. LBL 6
  395. PLOT 0,1
  396. PLOT A,1
  397. LINE
  398. PLOT 0,2
  399. PLOT B,2
  400. LINE
  401. PLOT 0,3
  402. PLOT C,3
  403. LINE
  404. A>299 =>GOTO 7
  405. B>299 =>GOTO 8
  406. C>299 =>GOTO 9
  407. INT 10RAN#->E
  408. INT 10RAN#->F
  409. INT 10RAN#->G
  410. E+A->A
  411. F+B->B
  412. G+C->C
  413. A<299 =>GOTO 6
  414. B<299 =>GOTO 6
  415. C<299 =>GOTO 6
  416. LBL 7
  417. " A GAGNE" DISP
  418. 4I DISP
  419. 4I+P->P
  420. GOTO 5
  421. LBL 8
  422. "B GAGNE" DISP
  423. 4J DISP
  424. 4J+Q->Q
  425. GOTO 5
  426. LBL 9
  427. "C GAGNE" DISP
  428. 4K DISP
  429. 4K+R->R
  430. GOTO 5
  431.  
  432. **************************
  433.  
  434. Parachutiste
  435. (c) JJ Richeux / modif David Moutal
  436.  
  437. Un parachutiste a saut‚ mais son 
  438. parachute ne s'est pas ouvert, sa 
  439. seule chance de survie c'est vous ! 
  440. Essayez de le rattraper avec le 
  441. trampoline (4 pour aller … gauche, 5 
  442. pour rester sur place et 6 pour aller 
  443. … droite). Vous partez avec 3 vies. 
  444. Les signes <, > et . indiquent la 
  445. direction du vent.
  446.  
  447. 463 PAS
  448.  
  449. MCL
  450. RANGE 1,95,0,1,63,0
  451. LBL 0
  452. 1->A:2->B:3->C:4->D
  453. 5->E:56->G
  454. INT 100RAN#->F
  455. F>78 =>GOTO 0
  456. LBL 1
  457. CLS:G-8->G
  458. A+F+L<.5 =>GOTO 0
  459. E+F+L<.5 =>GOTO 0
  460. PLOT A+F+L,A+G
  461. PLOT E+F+L,E+G:LINE
  462. PLOT E+F+L,A+G
  463. PLOT A+F+L,E+G:LINE
  464. PLOT C+F+L,D+G
  465. PLOT C+F+L,E+G:LINE
  466. A+H<0 =>0->H
  467. 3E+H>95 =>80->H
  468. PLOT A+H,A:PLOT 3E+H,A
  469. LINE DISP
  470. G>=7 =>GOTO 2
  471. G<7 =>GOTO 3
  472. LBL 2
  473. 10-INT 20RAN#->L
  474. A+F+L>=85 =>GOTO 2
  475. A+F+L=<1 =>GOTO 2
  476. L<0 =>"VENT= <"
  477. L>0 =>"VENT= >"
  478. L=0 =>"VENT= ."
  479. "FORCE="
  480. ABS INT L DISP
  481. "DEPLACEMENT"?->W
  482. W=6 =>H+12->H
  483. W=4 =>H-12->H
  484. PLOT A+H,A
  485. PLOT 3E+H,A:LINE
  486. GOTO 1
  487. LBL 3
  488. H>F+L =>GOTO 5
  489. 3E+H=<E+F+L =>GOTO 5
  490.      ou pour moins pr‚cis
  491.      3E+H<E+F+L =>GOTO 5
  492. "GAGNE!!" DISP
  493. ISZ I
  494. GOTO 0
  495. LBL 5
  496. "SPLASH" DISP
  497. ISZ J
  498. J<3 =>GOTO 0
  499. "PARTIE TERMINEE" DISP
  500. "SCORE:":I DISP
  501.  
  502. **************************
  503.  
  504. Rapido
  505. (c) Philippe / David
  506.  
  507. Attention ! Ca va speeder ! M‚morisez 
  508. la s‚quence et restituez la sous forme 
  509. de chiffres de 1 … 4 selon la 
  510. correspondance:
  511. 2|1
  512. ---3|4
  513. … chaque s‚quence juste vous passez au 
  514. tableau suivant avec 1 case de plus … 
  515. m‚moriser. Vous gagnez une fois le 
  516. tableau 5 d‚pass‚.
  517.  
  518. DEFM 15:MCL:14->I~J:5->T
  519. RANGE -10,10,0,-10,10,0
  520. LBL 4:4->A
  521. LBL 0
  522. INT 4RAN#+1->Z[A]
  523. Z[A]=B =>GOTO 0
  524. CLS
  525. PLOT I,J:PLOT I+3,J:LINE
  526. PLOT I+3,J+3:LINE
  527. PLOT I,J+3:LINE:PLOT I,J:LINE
  528. A>T =>GOTO 1
  529. Z[A]=1 =>4->I~J
  530. Z[A]=2 =>-8->I
  531. Z[A]=2 =>4->J
  532. Z[A]=3 =>-8->I~J
  533. Z[A]=4 =>4->I
  534. Z[A]=4 =>-8->J
  535. Z[A]->B
  536. ISZ A
  537. GOTO 0
  538. LBL 1
  539. 1->A
  540. LBL 2
  541. ?->C
  542. C<>Z[A] =>GOTO 8 (<> DIFFERENT)
  543. S+10->S
  544. A>=T =>GOTO 7
  545. A+1->A
  546. GOTO 2
  547. LBL 7
  548. ISZ T
  549. 14->I~J
  550. T=<10 =>GOTO 4
  551. "GAGNE!" DISP
  552. GOTO 9
  553. LBL 8
  554. "PERDU" DISP
  555. LBL 9
  556. "SCORE:":S DISP
  557. 14->I~J
  558. D<3 =>GOTO 4
  559. "PARTIE TERMINEE" DISP
  560.  
  561. **************************
  562.  
  563. Att‚rissage
  564. (c) Pierre Legal / fiche ELENDIL
  565.  
  566. Affichez … l'‚cran toutes les donn‚es 
  567. de chaque ‚tape permettant de poser 
  568. votre avion. Ces donn‚es sont 
  569. distance, direction du vent, 
  570. inclinaison de l'appareil, altitude. 
  571. Vous faites varier votre inclinaison 
  572. avec 1 (descendre), 2 (monter), 0 
  573. (inclinaison conserv‚e). Il faut 
  574. arriver … l'altitude 0 et … la 
  575. distance 0 en meme temps. Bon courage 
  576. et attention aux trous d'aire...
  577.  
  578. PROG 3
  579.  
  580. 0->I:INT 10RAN#+20->X:INT 10RAN#+10->H
  581. LBL 0:0->C:3COSX->V:"DISTANCE":X DISP
  582. V>0 =>"VENT +" DISP
  583. V<0 =>"VENT -" DISP
  584. "INCLINAISON":I DISP
  585. "ALTITUDE":H DISP
  586. ?->P:P=4 =>ISZ I:P=1 =>DSZ I:ABSI>3 
  587. =>"DECCROCHAGE" DISP
  588. C=1 =>H-4->H:C=1 =>0->I:H+V+I->H;INT 
  589. 15RAN#=5=>3->C:C=3=>"TROU D'AIR" DISP
  590. C=3 =>H-5->H:H<0 =>2->C:C=2 =>"CRASH 
  591. !!!" DISP
  592. C=2 =>GOTO 2:DSZ X:X=<0 =>GOTO 1:GOTO 
  593. 0:LBL 1:H=<3 =>4->C:ABS I>2 =>5->C:C=5 
  594. =>"CRASH !!!" DISP
  595. C=5 =>GOTO 2:C=4:"TROP HAUT" DISP
  596. C=4 =>GOTO 2
  597. "BRAVO, BEL ATTERISSAGE":PROG 3:LBL 
  598. 2:"PERDU DISP
  599.  
  600. **************************
  601.  
  602. Puissance 4
  603. (c) Fabrice GUY
  604.  
  605. A cahque tour de jeu, le programme 
  606. demande la colonne o— le joueur va 
  607. placer son pion ( colonnes de 1 … 7, 
  608. de gauche … droite).
  609.  
  610. Prog 0:
  611.  
  612. Range 1,8,0,1,7,0:Mcl:8->A
  613. Lbl 0:Plot 1,A:Plot 8,A:Line:Plot 
  614. A,1:Plot A,7:Line:Dsz A:Goto 0
  615. Lbl 1:1->A:Prog 1:2->A:Prog 1:Goto 1
  616.  
  617. Prog 1:
  618.  
  619. Graph Y=0 Disp
  620. Lbl 0:?->B:INT B->B:B=<0 => Goto 0:B>7 
  621. =>Goto 0
  622. B[B]=6 => Goto 0
  623. Isz B[B]:B[B]->W:W+.5->Z:A<>1 =>Goto 1
  624. Plot B,Z:Plot B+1,Z:Line:Plot B+.5,Z-
  625. .5:Plot X,Y+1:Line:Goto 9
  626. Lbl 1:Plot B,W:Plot B+1,W+1:Line:Plot 
  627. B,Y:Plot B+1,Y-1:Line
  628. Lbl 9
  629.  
  630. **************************
  631.  
  632. Transformation d'un nombre d‚cimal en 
  633. fraction
  634.  
  635. - entrer une valeur decimale de X
  636. - appuyer 3 fois de suite dur EXE
  637.  
  638. "DECIMAL->FRACTION":LBL 2:"X:"?->X:X-
  639. >H:INT X->A:A->N:1->D:1/ FRAC X->X:INT 
  640. X->B:A B+1->M:B->E:"NUMERATEUR:":M 
  641. DISP
  642. "DENOMINATEUR:":E DISP
  643. "PRECISION:":M/E-H DISP
  644. M/E-H=0 => GOTO 2
  645. LBL 1:1/FRAC X->X:INT X->C:C M+N->P:C 
  646. E+D->F:["----------------
  647. "]:"NUMERATEUR:":P DISP
  648. "DENOMINATEUR:":F DISP
  649. "PRECISION:":P/F-H DISP
  650. P/F-H=0 =>GOTO 2
  651. M->N:P->M:E->D:F->E:GOTO 1
  652.  
  653. **************************
  654.  
  655. R‚solution d'‚quation du 2nd degr‚
  656.  
  657. Calcul du discriminant et des racines 
  658. r‚elles.
  659. ax2+bx+c=0
  660.  
  661.  
  662. PROG 1:
  663.  
  664. "A:"?->A:"B:"?->B:"C:"?->C
  665. "DELTA:":B^2-4AC->D
  666. D>0 =>GOTO 0
  667. D=0 =>GOTO 1
  668. "RACINES COMPLEXES" DISP
  669. PROG 1
  670. LBL 0:"X1:":((-)B-D^.5)/2A DISP
  671. "X2:":((-)B+D^.5)/2A DISP
  672. PROG 1
  673. LBL 1:"X1=X2:":(-)B/2A DISP
  674. PROG 1
  675.  
  676. **************************
  677.  
  678. Courbes diverses
  679.  
  680. CLS:RAD:"DIMENSION 5":RANGE (-
  681. )1,1,1,(-)2,2,1:MCL:LBL 1:PLOT SIN 
  682. 2T,(-)2COS T SIN 2T:LINE:T+.05-
  683. >T:T<>6.5 =>GOTO 1:GRAPH Y=0 DISP
  684.  
  685. "CHRONOMETRE" DISP (en mode DEG)
  686. 0->A:CLS:GRAPH Y=SQR (9-X^2):GRAPH 
  687. Y=(-) SQR (9-X^2):LBL 1:A+1.6->A:PLOT 
  688. 0,0:PLOT 3COS A,3SIN A:LINE:GOTO 1
  689.  
  690. LBL 1:"CERCLES":"R"?->T:"X"?->A:"Y"?-
  691. >B:PLOT A,B:GRAPH Y=SQR (T^2-(X-
  692. A)^2)+B
  693.  
  694.  
  695. **************************
  696.  
  697. C'est tout pour l'instant, mais vous 
  698. pouvez m'en envoyer … l'adresse 
  699. suivante:
  700.  
  701.          Saint-Cricq William
  702.             9 Cit‚ Bel Air
  703.              65000 TARBES
  704.  
  705.  
  706. Je remercie DAVID pour ses programmes 
  707. et son animation de la rubrique Casio 
  708. sur W-Tel, pour le contacter : Bal 
  709. DAVID sur W-Tel.
  710.  
  711. ATTENTION: CES PROGRAMMES NE PEUVENT 
  712. ETRE VENDUS. ILS SONT DU DOMAINE 
  713. PUBLIC ET SONT DISTRIBUES PAR W-TEL. 
  714.  
  715.  
  716.